﻿Imports System.Windows.Forms
Imports ArfaUI
Public Class MainMenu
    Inherits PageTemplate
    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        lvPageActivities = lvAdministratorActivities
        lvPageActivities.View = Windows.Forms.View.SmallIcon
        'cboLvStyle.SelectedIndex = 0
        'sethead()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        MainWindow.logout()
    End Sub

    Private Sub MainMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        restoname.Text = LocalSession.namaresto
        restoalamat.Text = LocalSession.alamatresto
        restotelpfax.Text = "Telp : " & LocalSession.telpresto & Environment.NewLine & "Fax  : " & LocalSession.faxrest
        oprname.Text = LocalSession.operatorname
        oprrole.Text = LocalSession.operatorrole


    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles restoname.TextChanged

    End Sub

    Private Sub MainMenu_VisibleChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.VisibleChanged
        restoname.Text = LocalSession.namaresto
        restoalamat.Text = LocalSession.alamatresto
        restotelpfax.Text = "Telp : " & LocalSession.telpresto & Environment.NewLine & "Fax  : " & LocalSession.faxrest
        oprname.Text = LocalSession.operatorname
        oprrole.Text = LocalSession.operatorrole
    End Sub

    Private Sub oprname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oprname.TextChanged
        lbluser.Text = "-> " & oprname.Text

    End Sub

    Private Sub oprrole_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oprrole.TextChanged
        lblrole.Text = "-> " & oprrole.Text
    End Sub
End Class
